home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-03
/
qbasicpg.zip
/
PRIMES.BAS
< prev
next >
Wrap
BASIC Source File
|
1980-01-01
|
384b
|
19 lines
120 REM INTERFACE AGE PRIME NUMBER BENCHMARK
130 PRINT "STARTING:"
140 FOR N = 1 TO 1000
150 FOR K = 2 TO 500
160 LET M = N/K
170 LET L = INT(M)
180 IF L = 0 THEN 230
190 IF L = 1 THEN 220
200 IF M > L THEN 220
210 IF M = L THEN 240
220 NEXT K
230 PRINT N;
240 NEXT N
250 PRINT "FINISHED"
0 IF L = 1 THEN 220
200 IF M > L THEN 220
210 IF M = L THEN 240
220 NEXT K
2